Screensavers 98/Screensavers 98.iso/animals/aquascape/configure.exe/0/RCDATA/TCONFIGFORM/TCONFIGFORM.txt

Text File | 2000-03-28 | 115KB | 4,102 lines

object ConfigForm: TConfigForm
  Left = 123
  Top = 88
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'AquaScape'
  ClientHeight = 452
  ClientWidth = 632
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  Position = poScreenCenter
  Scaled = False
  ShowHint = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnMouseMove = SignDescMouseMove
  PixelsPerInch = 96
  TextHeight = 14
  object AquaScapeLabel: TImage
    Left = 150
    Top = 7
    Width = 333
    Height = 14
    AutoSize = True
    Picture.Data = {<image000.bmp>}
  end
  object CopyrightLabel: TImage
    Left = 6
    Top = 427
    Width = 156
    Height = 23
    Cursor = 5
    Hint = 'Click to launch browser and go to website'
    AutoSize = True
    Picture.Data = {<image001.bmp>}
    OnClick = CopyrightLabelClick
  end
  object TabbedNotebook: TTabbedNotebook
    Left = 2
    Top = 26
    Width = 628
    Height = 393
    PageIndex = 4
    TabFont.Color = clBtnText
    TabFont.Height = -11
    TabFont.Name = 'Arial'
    TabFont.Style = []
    TabOrder = 2
    Visible = False
    OnChange = TabbedNotebookChange
    object TTabPage
      Left = 4
      Top = 25
      Caption = 'General'
      object GeneralDivider: TBevel
        Left = 309
        Top = 9
        Width = 3
        Height = 349
      end
      object HelpLabel: TLabel
        Left = 324
        Top = 342
        Width = 289
        Height = 14
        AutoSize = False
        Caption = 'For context-sensitive help, right click any configuration item.'
        Font.Color = clMaroon
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object BubbleOptions: TGroupBox
        Tag = 26
        Left = 321
        Top = 135
        Width = 295
        Height = 76
        Caption = 'Bubbles'
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        PopupMenu = RightClickMenu
        TabOrder = 6
        OnMouseDown = ControlMouseDown
        object BubbleOptionsDivider: TBevel
          Left = 109
          Top = 12
          Width = 4
          Height = 59
          Shape = bsLeftLine
        end
        object BubbleAmountLabel: TLabel
          Tag = 26
          Left = 118
          Top = 15
          Width = 95
          Height = 14
          Hint = 'Choose the amount of bubbles '
          Caption = 'Amount of Bubbles:'
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          PopupMenu = RightClickMenu
          OnMouseDown = ControlMouseDown
        end
        object Bubbles1Check: TRadioButton
          Tag = 26
          Left = 115
          Top = 33
          Width = 54
          Height = 17
          Hint = 'Choose the amount of bubbles'
          Caption = 'A few'
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          PopupMenu = RightClickMenu
          TabOrder = 0
          OnMouseDown = ControlMouseDown
        end
        object Bubbles2Check: TRadioButton
          Tag = 26
          Left = 179
          Top = 33
          Width = 102
          Height = 17
          Hint = 'Choose the amount of bubbles '
          Caption = 'Average amount'
          Checked = True
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          PopupMenu = RightClickMenu
          TabOrder = 1
          TabStop = True
          OnMouseDown = ControlMouseDown
        end
        object ShowBubblesCheck: TCheckBox
          Tag = 26
          Left = 10
          Top = 35
          Width = 95
          Height = 17
          Hint = 'Choose this option to display the bubble tubes'
          Caption = 'Airtube Bubbles'
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          PopupMenu = RightClickMenu
          TabOrder = 2
          OnMouseDown = ControlMouseDown
        end
        object BubbleSFXCheck: TCheckBox
          Tag = 26
          Left = 10
          Top = 53
          Width = 91
          Height = 17
          Hint = 'Now you too can enjoy the sound of an aquarium!'
          Caption = 'Bubbles SFX'
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          PopupMenu = RightClickMenu
          TabOrder = 3
          OnMouseDown = ControlMouseDown
        end
        object Bubbles3Check: TRadioButton
          Tag = 26
          Left = 115
          Top = 53
          Width = 54
          Height = 17
          Hint = 'Choose the amount of bubbles '
          Caption = 'A lot'
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          PopupMenu = RightClickMenu
          TabOrder = 4
          OnMouseDown = ControlMouseDown
        end
        object Bubbles4Check: TRadioButton
          Tag = 26
          Left = 179
          Top = 53
          Width = 106
          Height = 17
          Hint = 'Choose the amount of bubbles '
          Caption = 'An absurd amount'
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          PopupMenu = RightClickMenu
          TabOrder = 5
          OnMouseDown = ControlMouseDown
        end
        object TankBubblesCheck: TCheckBox
          Tag = 26
          Left = 10
          Top = 17
          Width = 95
          Height = 17
          Hint = 'Choose this option to display bubbles tank wide'
          Caption = 'Tank Bubbles'
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          PopupMenu = RightClickMenu
          TabOrder = 6
          OnMouseDown = ControlMouseDown
        end
      end
      object ProgramModels: TGroupBox
        Tag = 20
        Left = 6
        Top = 3
        Width = 294
        Height = 114
        Hint = 'Select a program model to set other global settings'
        Caption = 'Program Models'
        Color = clBtnFace
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentColor = False
        ParentFont = False
        PopupMenu = RightClickMenu
        TabOrder = 0
        OnMouseDown = ControlMouseDown
        object PMDescLabel: TLabel
          Tag = 20
          Left = 12
          Top = 38
          Width = 273
          Height = 72
          AutoSize = False
          Caption =
            'The Ulta-Lite model uses the least features, but also uses the l' +
            'east memory and yields the best animation performance.  Only a f' +
            'ew fish and the lowest-res screen mode are used.  Best used as a' +
            ' light screensaver on a slower computer.'
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          WordWrap = True
          OnMouseDown = ControlMouseDown
        end
        object PMUltraLiteCheck: TRadioButton
          Tag = 20
          Left = 11
          Top = 19
          Width = 72
          Height = 17
          Caption = 'Ulta-Lite'
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          OnClick = PMUltraLiteCheckClick
          OnMouseDown = ControlMouseDown
        end
        object PMLiteCheck: TRadioButton
          Tag = 20
          Left = 78
          Top = 19
          Width = 42
          Height = 17
          Caption = 'Lite'
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          OnClick = PMLiteCheckClick
          OnMouseDown = ControlMouseDown
        end
        object PMNormalCheck: TRadioButton
          Tag = 20
          Left = 122
          Top = 19
          Width = 55
          Height = 17
          Caption = 'Normal'
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          OnClick = PMNormalCheckClick
          OnMouseDown = ControlMouseDown
        end
        object PMFullCheck: TRadioButton
          Tag = 20
          Left = 183
          Top = 19
          Width = 38
          Height = 17
          Caption = 'Full'
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          TabOrder = 3
          OnClick = PMFullCheckClick
          OnMouseDown = ControlMouseDown
        end
        object PMCustom1: TRadioButton
          Tag = 20
          Left = 227
          Top = 19
          Width = 62
          Height = 17
          Caption = 'Custom'
          Checked = True
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          TabOrder = 4
          TabStop = True
          OnClick = PMCustom1Click
          OnMouseDown = ControlMouseDown
        end
      end
      object Gravels: TGroupBox
        Tag = 21
        Left = 6
        Top = 119
        Width = 294
        Height = 140
        Hint = 'Select gravel color'
        HelpContext = 21
        Caption = 'Gravel'
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        PopupMenu = RightClickMenu
        TabOrder = 1
        OnMouseDown = ControlMouseDown
        object Gravel: TImage
          Tag = 21
          Left = 32
          Top = 33
          Width = 251
          Height = 100
          Hint = 'Select a gravel color or choose random multi-colored gravel'
          Picture.Data = {<image002.bmp>}
          OnMouseDown = ControlMouseDown
          OnMouseUp = GravelMouseUp
        end
        object GravelCheck0: TRadioButton
          Tag = 21
          Left = 11
          Top = 15
          Width = 272
          Height = 17
          Hint = 'Disable gravel'
          Caption = ' None'
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          PopupMenu = RightClickMenu
          TabOrder = 0
          OnMouseDown = ControlMouseDown
        end
        object GravelCheck1: TRadioButton
          Tag = 21
          Left = 11
          Top = 32
          Width = 14
          Height = 17
          Checked = True
          PopupMenu = RightClickMenu
          TabOrder = 1
          TabStop = True
          OnMouseDown = ControlMouseDown
        end
        object GravelCheck2: TRadioButton
          Tag = 21
          Left = 11
          Top = 49
          Width = 14
          Height = 17
          PopupMenu = RightClickMenu
          TabOrder = 2
          OnMouseDown = ControlMouseDown
        end
        object GravelCheck3: TRadioButton
          Tag = 21
          Left = 11
          Top = 66
          Width = 14
          Height = 17
          PopupMenu = RightClickMenu
          TabOrder = 3
          OnMouseDown = ControlMouseDown
        end
        object GravelCheck4: TRadioButton
          Tag = 21
          Left = 11
          Top = 83
          Width = 14
          Height = 17
          PopupMenu = RightClickMenu
          TabOrder = 4
          OnMouseDown = ControlMouseDown
        end
        object GravelCheck5: TRadioButton
          Tag = 21
          Left = 11
          Top = 100
          Width = 14
          Height = 17
          PopupMenu = RightClickMenu
          TabOrder = 5
          OnMouseDown = ControlMouseDown
        end
        object MultiGravelCheck: TRadioButton
          Tag = 21
          Left = 11
          Top = 117
          Width = 14
          Height = 17
          Caption = 'MultiGravelCheck'
          PopupMenu = RightClickMenu
          TabOrder = 6
          OnMouseDown = ControlMouseDown
        end
      end
      object Decors: TGroupBox
        Tag = 22
        Left = 6
        Top = 261
        Width = 294
        Height = 97
        Hint = 'Select tank decor type'
        HelpContext = 22
        Caption = 'Tank Decor'
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        PopupMenu = RightClickMenu
        TabOrder = 2
        OnMouseDown = ControlMouseDown
        object Decor1: TImage
          Tag = 22
          Left = 32
          Top = 36
          Width = 251
          Height = 15
          Picture.Data = {<image003.bmp>}
          OnClick = Decor1Click
          OnMouseDown = ControlMouseDown
        end
        object Decor2: TImage
          Tag = 22
          Left = 32
          Top = 54
          Width = 251
          Height = 15
          Picture.Data = {<image004.bmp>}
          OnClick = Decor2Click
          OnMouseDown = ControlMouseDown
        end
        object Decor3: TImage
          Tag = 22
          Left = 32
          Top = 72
          Width = 251
          Height = 15
          Picture.Data = {<image005.bmp>}
          OnClick = Decor3Click
          OnMouseDown = ControlMouseDown
        end
        object DecorCheck0: TRadioButton
          Tag = 22
          Left = 11
          Top = 17
          Width = 270
          Height = 17
          Hint = 'Disable decor border'
          Caption = ' None'
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          OnMouseDown = ControlMouseDown
        end
        object DecorCheck1: TRadioButton
          Tag = 22
          Left = 11
          Top = 35
          Width = 14
          Height = 17
          Caption = 'DecorCheck1'
          Checked = True
          TabOrder = 1
          TabStop = True
          OnMouseDown = ControlMouseDown
        end
        object DecorCheck2: TRadioButton
          Tag = 22
          Left = 11
          Top = 53
          Width = 14
          Height = 17
          Caption = 'DecorCheck2'
          TabOrder = 2
          OnMouseDown = ControlMouseDown
        end
        object DecorCheck3: TRadioButton
          Tag = 22
          Left = 11
          Top = 71
          Width = 14
          Height = 17
          Caption = 'DecorCheck3'
          TabOrder = 3
          OnMouseDown = ControlMouseDown
        end
      end
      object TankSizes: TGroupBox
        Tag = 23
        Left = 321
        Top = 3
        Width = 295
        Height = 42
        Hint =
          'On slower computers, a smaller tank increases animation performa' +
          'nce'
        Caption = 'Tank Size'
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        PopupMenu = RightClickMenu
        TabOrder = 3
        OnMouseDown = ControlMouseDown
        object TSSmallCheck: TRadioButton
          Tag = 23
          Left = 11
          Top = 19
          Width = 62
          Height = 17
          Caption = 'Small'
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          PopupMenu = RightClickMenu
          TabOrder = 0
          OnMouseDown = ControlMouseDown
        end
        object TSMediumCheck: TRadioButton
          Tag = 23
          Left = 71
          Top = 19
          Width = 62
          Height = 17
          Caption = 'Medium'
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          PopupMenu = RightClickMenu
          TabOrder = 1
          OnMouseDown = ControlMouseDown
        end
        object TSLargeCheck: TRadioButton
          Tag = 23
          Left = 143
          Top = 19
          Width = 54
          Height = 17
          Caption = 'Large'
          Checked = True
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          PopupMenu = RightClickMenu
          TabOrder = 2
          TabStop = True
          OnMouseDown = ControlMouseDown
        end
        object TSFullCheck: TRadioButton
          Tag = 23
          Left = 203
          Top = 19
          Width = 78
          Height = 17
          Caption = 'Full Screen'
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          PopupMenu = RightClickMenu
          TabOrder = 3
          OnMouseDown = ControlMouseDown
        end
      end
      object TankLayouts: TGroupBox
        Tag = 24
        Left = 321
        Top = 47
        Width = 295
        Height = 42
        Caption = 'Tank Layout'
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        PopupMenu = RightClickMenu
        TabOrder = 4
        OnMouseDown = ControlMouseDown
        object TLRoundCheck: TRadioButton
          Tag = 24
          Left = 65
          Top = 19
          Width = 66
          Height = 17
          Caption = 'Circular'
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          PopupMenu = RightClickMenu
          TabOrder = 0
          OnMouseDown = ControlMouseDown
        end
        object TLRectCheck: TRadioButton
          Tag = 24
          Left = 155
          Top = 19
          Width = 90
          Height = 17
          Caption = 'Rectanglular'
          Checked = True
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          PopupMenu = RightClickMenu
          TabOrder = 1
          TabStop = True
          OnMouseDown = ControlMouseDown
        end
      end
      object WaterColors: TGroupBox
        Tag = 25
        Left = 321
        Top = 91
        Width = 295
        Height = 42
        Hint = 'Choose a water color, or none to improve animation performance'
        Caption = ' Water Color'
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        PopupMenu = RightClickMenu
        TabOrder = 5
        OnMouseDown = ControlMouseDown
        object WCNone: TRadioButton
          Tag = 25
          Left = 11
          Top = 19
          Width = 62
          Height = 17
          Caption = 'None'
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          PopupMenu = RightClickMenu
          TabOrder = 0
          OnMouseDown = ControlMouseDown
        end
        object WCMidnight: TRadioButton
          Tag = 25
          Left = 65
          Top = 19
          Width = 86
          Height = 17
          Caption = 'Midnight Blue'
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          PopupMenu = RightClickMenu
          TabOrder = 1
          OnMouseDown = ControlMouseDown
        end
        object WCFull: TRadioButton
          Tag = 25
          Left = 154
          Top = 19
          Width = 62
          Height = 17
          Caption = 'Full Blue'
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          PopupMenu = RightClickMenu
          TabOrder = 2
          OnMouseDown = ControlMouseDown
        end
        object WCMist: TRadioButton
          Tag = 25
          Left = 219
          Top = 19
          Width = 74
          Height = 17
          Caption = 'Sea Foam'
          Checked = True
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          PopupMenu = RightClickMenu
          TabOrder = 3
          TabStop = True
          OnMouseDown = ControlMouseDown
        end
      end
      object OtherOptions: TGroupBox
        Tag = 28
        Left = 321
        Top = 276
        Width = 295
        Height = 60
        Caption = 'Other Options'
        Color = clBtnFace
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentColor = False
        ParentFont = False
        PopupMenu = RightClickMenu
        TabOrder = 7
        OnMouseDown = ControlMouseDown
        object FishLib: TImage
          Left = 274
          Top = 138
          Width = 193
          Height = 1412
          AutoSize = True
          Picture.Data = {<image006.bmp>}
          Visible = False
        end
        object AlwaysonTopCheck: TCheckBox
          Tag = 28
          Left = 146
          Top = 17
          Width = 139
          Height = 17
          Hint =
            'This will hide the mouse cursor, start bar, and other shortcut b' +
            'ars'
          Caption = 'Aquarium always on top'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          PopupMenu = RightClickMenu
          TabOrder = 0
          OnMouseDown = ControlMouseDown
        end
        object ZoomCamCheck: TCheckBox
          Tag = 28
          Left = 10
          Top = 17
          Width = 131
          Height = 17
          Hint = 'The zoom camera pans and zooms around the tank randomly'
          Caption = 'Activate zoom camera'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          PopupMenu = RightClickMenu
          TabOrder = 1
          OnMouseDown = ControlMouseDown
        end
        object RandomChangesCheck: TCheckBox
          Tag = 28
          Left = 10
          Top = 37
          Width = 219
          Height = 17
          Hint =
            'Good idea if running AquaScape as a screensaver, but may cause p' +
            'roblems on some systems'
          Caption = 'Random changes'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          PopupMenu = RightClickMenu
          TabOrder = 2
          OnMouseDown = ControlMouseDown
        end
      end
      object ScreenOptions: TGroupBox
        Tag = 27
        Left = 321
        Top = 213
        Width = 295
        Height = 60
        Hint =
          'On slower computers, a smaller tank increases animation performa' +
          'nce'
        Caption = 'Screen Mode'
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        PopupMenu = RightClickMenu
        TabOrder = 8
        OnMouseDown = ControlMouseDown
        object LowResMode1Check: TRadioButton
          Tag = 27
          Left = 7
          Top = 19
          Width = 62
          Height = 17
          Hint = 'Lowest-res mode'
          Caption = '320*240'
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          PopupMenu = RightClickMenu
          TabOrder = 0
          OnMouseDown = ControlMouseDown
        end
        object LowResMode2Check: TRadioButton
          Tag = 27
          Left = 71
          Top = 19
          Width = 62
          Height = 17
          Hint = 'Low-res mode'
          Caption = '400*300'
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          PopupMenu = RightClickMenu
          TabOrder = 1
          OnMouseDown = ControlMouseDown
        end
        object HiResMode1Check: TRadioButton
          Tag = 27
          Left = 135
          Top = 19
          Width = 62
          Height = 17
          Hint = 'Medium-res mode'
          Caption = '640*480'
          Checked = True
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          PopupMenu = RightClickMenu
          TabOrder = 2
          TabStop = True
          OnMouseDown = ControlMouseDown
        end
        object HiResMode2Check: TRadioButton
          Tag = 27
          Left = 199
          Top = 19
          Width = 93
          Height = 17
          Hint = 'Hi-res mode'
          Caption = '800*600 (Best)'
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          PopupMenu = RightClickMenu
          TabOrder = 3
          OnMouseDown = ControlMouseDown
        end
        object ColorMode256Check: TCheckBox
          Tag = 27
          Left = 8
          Top = 37
          Width = 141
          Height = 17
          Hint = 'Attempts to run in 256 colors for best performance (recommended)'
          HelpContext = 2
          Caption = 'Try 8-bit 256 color mode'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          PopupMenu = RightClickMenu
          TabOrder = 4
          OnClick = ColorMode256CheckClick
          OnMouseDown = ControlMouseDown
        end
        object NoResModeCheck: TRadioButton
          Tag = 27
          Left = 154
          Top = 37
          Width = 137
          Height = 17
          Hint = 'Hi-res mode'
          Caption = 'Don'#39't change scrn mode'
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          PopupMenu = RightClickMenu
          TabOrder = 5
          OnMouseDown = ControlMouseDown
        end
      end
    end
    object TTabPage
      Left = 4
      Top = 25
      Caption = 'Real Fish'
      object Max1Label: TLabel
        Tag = 30
        Left = 126
        Top = 32
        Width = 23
        Height = 14
        Hint = 'Max amount of this fish allowed at once'
        Caption = 'Max:'
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        PopupMenu = RightClickMenu
        OnMouseDown = ControlMouseDown
      end
      object Max2Label: TLabel
        Tag = 30
        Left = 126
        Top = 70
        Width = 23
        Height = 14
        Hint = 'Max amount of this fish allowed at once'
        Caption = 'Max:'
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        PopupMenu = RightClickMenu
        OnMouseDown = ControlMouseDown
      end
      object Max3Label: TLabel
        Tag = 30
        Left = 126
        Top = 108
        Width = 23
        Height = 14
        Hint = 'Max amount of this fish allowed at once'
        Caption = 'Max:'
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        PopupMenu = RightClickMenu
        OnMouseDown = ControlMouseDown
      end
      object Max4Label: TLabel
        Tag = 30
        Left = 126
        Top = 146
        Width = 23
        Height = 14
        Hint = 'Max amount of this fish allowed at once'
        Caption = 'Max:'
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        PopupMenu = RightClickMenu
        OnMouseDown = ControlMouseDown
      end
      object Max5Label: TLabel
        Tag = 30
        Left = 126
        Top = 184
        Width = 23
        Height = 14
        Hint = 'Max amount of this fish allowed at once'
        Caption = 'Max:'
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        PopupMenu = RightClickMenu
        OnMouseDown = ControlMouseDown
      end
      object Max6Label: TLabel
        Tag = 30
        Left = 126
        Top = 222
        Width = 23
        Height = 14
        Hint = 'Max amount of this fish allowed at once'
        Caption = 'Max:'
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        PopupMenu = RightClickMenu
        OnMouseDown = ControlMouseDown
      end
      object Max7Label: TLabel
        Tag = 30
        Left = 126
        Top = 260
        Width = 23
        Height = 14
        Hint = 'Max amount of this fish allowed at once'
        Caption = 'Max:'
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        PopupMenu = RightClickMenu
        OnMouseDown = ControlMouseDown
      end
      object Max8Label: TLabel
        Tag = 30
        Left = 126
        Top = 298
        Width = 23
        Height = 14
        Hint = 'Max amount of this fish allowed at once'
        Caption = 'Max:'
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        PopupMenu = RightClickMenu
        OnMouseDown = ControlMouseDown
      end
      object Max9Label: TLabel
        Tag = 30
        Left = 126
        Top = 336
        Width = 23
        Height = 14
        Hint = 'Max amount of this fish allowed at once'
        Caption = 'Max:'
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        PopupMenu = RightClickMenu
        OnMouseDown = ControlMouseDown
      end
      object Max10Label: TLabel
        Tag = 30
        Left = 552
        Top = 32
        Width = 23
        Height = 14
        Hint = 'Max amount of this fish allowed at once'
        Caption = 'Max:'
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        PopupMenu = RightClickMenu
        OnMouseDown = ControlMouseDown
      end
      object Max11Label: TLabel
        Tag = 30
        Left = 552
        Top = 70
        Width = 23
        Height = 14
        Hint = 'Max amount of this fish allowed at once'
        Caption = 'Max:'
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        PopupMenu = RightClickMenu
        OnMouseDown = ControlMouseDown
      end
      object Max12Label: TLabel
        Tag = 30
        Left = 552
        Top = 108
        Width = 23
        Height = 14
        Hint = 'Max amount of this fish allowed at once'
        Caption = 'Max:'
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        PopupMenu = RightClickMenu
        OnMouseDown = ControlMouseDown
      end
      object Max13Label: TLabel
        Tag = 30
        Left = 552
        Top = 146
        Width = 23
        Height = 14
        Hint = 'Max amount of this fish allowed at once'
        Caption = 'Max:'
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        PopupMenu = RightClickMenu
        OnMouseDown = ControlMouseDown
      end
      object Max14Label: TLabel
        Tag = 30
        Left = 552
        Top = 184
        Width = 23
        Height = 14
        Hint = 'Max amount of this fish allowed at once'
        Caption = 'Max:'
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        PopupMenu = RightClickMenu
        OnMouseDown = ControlMouseDown
      end
      object Max15Label: TLabel
        Tag = 30
        Left = 552
        Top = 222
        Width = 23
        Height = 14
        Hint = 'Max amount of this fish allowed at once'
        Caption = 'Max:'
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        PopupMenu = RightClickMenu
        OnMouseDown = ControlMouseDown
      end
      object Max16Label: TLabel
        Tag = 30
        Left = 552
        Top = 260
        Width = 23
        Height = 14
        Hint = 'Max amount of this fish allowed at once'
        Caption = 'Max:'
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        PopupMenu = RightClickMenu
        OnMouseDown = ControlMouseDown
      end
      object Max17Label: TLabel
        Tag = 30
        Left = 552
        Top = 298
        Width = 23
        Height = 14
        Hint = 'Max amount of this fish allowed at once'
        Caption = 'Max:'
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        PopupMenu = RightClickMenu
        OnMouseDown = ControlMouseDown
      end
      object Max18Label: TLabel
        Tag = 30
        Left = 552
        Top = 336
        Width = 23
        Height = 14
        Hint = 'Max amount of this fish allowed at once'
        Caption = 'Max:'
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        PopupMenu = RightClickMenu
        OnMouseDown = ControlMouseDown
      end
      object FishColumn1: TImage
        Tag = 30
        Left = 17
        Top = 28
        Width = 75
        Height = 329
        Hint = 'Click the checkbox to enable this fish'
        Picture.Data = {<image007.bmp>}
        PopupMenu = RightClickMenu
        OnMouseDown = ControlMouseDown
        OnMouseMove = FishColumn1MouseMove
      end
      object FishColumn2: TImage
        Left = 212
        Top = 176
        Width = 95
        Height = 186
        Hint = 'Click the checkbox to enable this fish'
        Picture.Data = {<image008.bmp>}
        PopupMenu = RightClickMenu
        OnMouseMove = FishColumn2MouseMove
      end
      object FishColumn3: TImage
        Tag = 30
        Left = 429
        Top = 21
        Width = 90
        Height = 340
        Hint = 'Click the checkbox to enable this fish'
        Picture.Data = {<image009.bmp>}
        PopupMenu = RightClickMenu
        OnMouseDown = ControlMouseDown
        OnMouseMove = FishColumn3MouseMove
      end
      object Max19Label: TLabel
        Tag = 30
        Left = 340
        Top = 186
        Width = 23
        Height = 14
        Hint = 'Max amount of this fish allowed at once'
        Caption = 'Max:'
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        PopupMenu = RightClickMenu
        OnMouseDown = ControlMouseDown
      end
      object Max20Label: TLabel
        Tag = 30
        Left = 340
        Top = 224
        Width = 23
        Height = 14
        Hint = 'Max amount of this fish allowed at once'
        Caption = 'Max:'
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        PopupMenu = RightClickMenu
        OnMouseDown = ControlMouseDown
      end
      object Max21Label: TLabel
        Tag = 30
        Left = 340
        Top = 262
        Width = 23
        Height = 14
        Hint = 'Max amount of this fish allowed at once'
        Caption = 'Max:'
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        PopupMenu = RightClickMenu
        OnMouseDown = ControlMouseDown
      end
      object Max22Label: TLabel
        Tag = 30
        Left = 340
        Top = 300
        Width = 23
        Height = 14
        Hint = 'Max amount of this fish allowed at once'
        Caption = 'Max:'
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        PopupMenu = RightClickMenu
        OnMouseDown = ControlMouseDown
      end
      object Max23Label: TLabel
        Tag = 30
        Left = 340
        Top = 338
        Width = 23
        Height = 14
        Hint = 'Max amount of this fish allowed at once'
        Caption = 'Max:'
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        PopupMenu = RightClickMenu
        OnMouseDown = ControlMouseDown
      end
      object AddFishTheme: TSpeedButton
        Tag = 30
        Left = 209
        Top = 0
        Width = 25
        Height = 21
        Hint = 'Add or save current theme'
        Glyph.Data = {
          4E010000424D4E01000000000000760000002800000015000000120000000100
          040000000000D800000000000000000000000000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333330003333333333333333333330003333333330033333333330003333
          3333300333333333300033333333300333333333300033333333300333333333
          3000333333333003333333333000333333333003333333333000333000000000
          0000033330003330000000000000033330003333333330033333333330003333
          3333300333333333300033333333300333333333300033333333300333333333
          3000333333333003333333333000333333333333333333333000333333333333
          333333333000333333333333333333333000}
        Spacing = 2
        OnClick = AddFishThemeClick
        OnMouseDown = ControlMouseDown
      end
      object DeleteFishTheme: TSpeedButton
        Tag = 30
        Left = 375
        Top = 0
        Width = 25
        Height = 21
        Hint = 'Delete current theme'
        Glyph.Data = {
          4E010000424D4E01000000000000760000002800000015000000120000000100
          040000000000D800000000000000000000000000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333330003333333333333333333330003333333333333333333330003333
          3333333333333333300033333333333333333333300033333333333333333333
          3000333333333333333333333000333333333333333333333000333000000000
          0000033330003330000000000000033330003333333333333333333330003333
          3333333333333333300033333333333333333333300033333333333333333333
          3000333333333333333333333000333333333333333333333000333333333333
          333333333000333333333333333333333000}
        OnClick = DeleteFishThemeClick
        OnMouseDown = ControlMouseDown
      end
      object TotalFishLabel: TLabel
        Tag = 30
        Left = 506
        Top = 4
        Width = 70
        Height = 14
        Hint = 'Total number of fish that can be on-screen at once'
        Caption = 'Total max fish:'
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        PopupMenu = RightClickMenu
        OnMouseDown = ControlMouseDown
      end
      object FishColumn1a: TImage
        Tag = 30
        Left = 17
        Top = 108
        Width = 75
        Height = 96
        Hint = 'Click the checkbox to enable this fish'
        Picture.Data = {<image010.bmp>}
        PopupMenu = RightClickMenu
        Visible = False
        OnMouseDown = ControlMouseDown
        OnMouseMove = FishColumn1MouseMove
      end
      object FishColumn2a: TImage
        Left = 212
        Top = 176
        Width = 95
        Height = 36
        Hint = 'Click the checkbox to enable this fish'
        AutoSize = True
        Picture.Data = {<image011.bmp>}
        PopupMenu = RightClickMenu
        Visible = False
        OnMouseMove = FishColumn2MouseMove
      end
      object FishColumn3a: TImage
        Tag = 30
        Left = 429
        Top = 21
        Width = 90
        Height = 302
        Hint = 'Click the checkbox to enable this fish'
        AutoSize = True
        Picture.Data = {<image012.bmp>}
        PopupMenu = RightClickMenu
        Visible = False
        OnMouseDown = ControlMouseDown
        OnMouseMove = FishColumn3MouseMove
      end
      object Fish1: TCheckBox
        Tag = 30
        Left = 106
        Top = 30
        Width = 15
        Height = 17
        Hint = 'Toggle fish'
        PopupMenu = RightClickMenu
        State = cbChecked
        TabOrder = 0
        OnMouseDown = ControlMouseDown
      end
      object Fish1Max: TEdit
        Tag = 30
        Left = 154
        Top = 28
        Width = 27
        Height = 22
        Hint = 'Max amount of this fish allowed at once'
        PopupMenu = RightClickMenu
        TabOrder = 1
        Text = '4'
        OnMouseDown = ControlMouseDown
      end
      object FishPanel: TPanel
        Tag = 30
        Left = 203
        Top = 24
        Width = 203
        Height = 148
        PopupMenu = RightClickMenu
        TabOrder = 2
        OnMouseDown = ControlMouseDown
        object FishImage: TImage
          Tag = 30
          Left = 4
          Top = 3
          Width = 195
          Height = 102
          PopupMenu = RightClickMenu
          OnMouseDown = ControlMouseDown
        end
        object FishDescLabel: TLabel
          Tag = 30
          Left = 3
          Top = 104
          Width = 197
          Height = 41
          Hint = 'Fish description'
          Alignment = taCenter
          AutoSize = False
          Caption =
            'Cardinal Tetra: Freshwater community fish.  Very popular fish wi' +
            'th bright neon colors.  Similar to the Neon.'
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          PopupMenu = RightClickMenu
          Transparent = True
          WordWrap = True
          OnMouseDown = ControlMouseDown
        end
      end
      object Fish2: TCheckBox
        Tag = 30
        Left = 106
        Top = 68
        Width = 15
        Height = 17
        Hint = 'Toggle fish'
        Caption = 'Fish2'
        PopupMenu = RightClickMenu
        State = cbChecked
        TabOrder = 3
        OnMouseDown = ControlMouseDown
      end
      object Fish2Max: TEdit
        Tag = 30
        Left = 154
        Top = 66
        Width = 27
        Height = 22
        Hint = 'Max amount of this fish allowed at once'
        PopupMenu = RightClickMenu
        TabOrder = 4
        Text = '4'
        OnMouseDown = ControlMouseDown
      end
      object Fish3: TCheckBox
        Tag = 30
        Left = 106
        Top = 106
        Width = 15
        Height = 17
        Hint = 'Toggle fish'
        Caption = 'Fish3'
        PopupMenu = RightClickMenu
        State = cbChecked
        TabOrder = 5
        OnMouseDown = ControlMouseDown
      end
      object Fish3Max: TEdit
        Tag = 30
        Left = 154
        Top = 104
        Width = 27
        Height = 22
        Hint = 'Max amount of this fish allowed at once'
        PopupMenu = RightClickMenu
        TabOrder = 6
        Text = '4'
        OnMouseDown = ControlMouseDown
      end
      object Fish4: TCheckBox
        Tag = 30
        Left = 106
        Top = 144
        Width = 15
        Height = 17
        Hint = 'Toggle fish'
        Caption = 'CheckBox3'
        PopupMenu = RightClickMenu
        State = cbChecked
        TabOrder = 7
        OnMouseDown = ControlMouseDown
      end
      object Fish4Max: TEdit
        Tag = 30
        Left = 154
        Top = 142
        Width = 27
        Height = 22
        Hint = 'Max amount of this fish allowed at once'
        PopupMenu = RightClickMenu
        TabOrder = 8
        Text = '2'
        OnMouseDown = ControlMouseDown
      end
      object Fish5: TCheckBox
        Tag = 30
        Left = 106
        Top = 182
        Width = 15
        Height = 17
        Hint = 'Toggle fish'
        Caption = 'CheckBox3'
        PopupMenu = RightClickMenu
        State = cbChecked
        TabOrder = 9
        OnMouseDown = ControlMouseDown
      end
      object Fish5Max: TEdit
        Tag = 30
        Left = 154
        Top = 180
        Width = 27
        Height = 22
        Hint = 'Max amount of this fish allowed at once'
        PopupMenu = RightClickMenu
        TabOrder = 10
        Text = '2'
        OnMouseDown = ControlMouseDown
      end
      object Fish6: TCheckBox
        Tag = 30
        Left = 106
        Top = 220
        Width = 15
        Height = 17
        Hint = 'Toggle fish'
        Caption = 'CheckBox3'
        PopupMenu = RightClickMenu
        State = cbChecked
        TabOrder = 11
        OnMouseDown = ControlMouseDown
      end
      object Fish6Max: TEdit
        Tag = 30
        Left = 154
        Top = 218
        Width = 27
        Height = 22
        Hint = 'Max amount of this fish allowed at once'
        PopupMenu = RightClickMenu
        TabOrder = 12
        Text = '2'
        OnMouseDown = ControlMouseDown
      end
      object Fish7: TCheckBox
        Tag = 30
        Left = 106
        Top = 258
        Width = 15
        Height = 17
        Hint = 'Toggle fish'
        Caption = 'CheckBox3'
        PopupMenu = RightClickMenu
        State = cbChecked
        TabOrder = 13
        OnMouseDown = ControlMouseDown
      end
      object Fish7Max: TEdit
        Tag = 30
        Left = 154
        Top = 256
        Width = 27
        Height = 22
        Hint = 'Max amount of this fish allowed at once'
        PopupMenu = RightClickMenu
        TabOrder = 14
        Text = '3'
        OnMouseDown = ControlMouseDown
      end
      object Fish8: TCheckBox
        Tag = 30
        Left = 106
        Top = 296
        Width = 15
        Height = 17
        Hint = 'Toggle fish'
        Caption = 'CheckBox3'
        PopupMenu = RightClickMenu
        State = cbChecked
        TabOrder = 15
        OnMouseDown = ControlMouseDown
      end
      object Fish8Max: TEdit
        Tag = 30
        Left = 154
        Top = 294
        Width = 27
        Height = 22
        Hint = 'Max amount of this fish allowed at once'
        PopupMenu = RightClickMenu
        TabOrder = 16
        Text = '2'
        OnMouseDown = ControlMouseDown
      end
      object Fish9: TCheckBox
        Tag = 30
        Left = 106
        Top = 334
        Width = 15
        Height = 17
        Hint = 'Toggle fish'
        Caption = 'CheckBox3'
        PopupMenu = RightClickMenu
        State = cbChecked
        TabOrder = 17
        OnMouseDown = ControlMouseDown
      end
      object Fish9Max: TEdit
        Tag = 30
        Left = 154
        Top = 332
        Width = 27
        Height = 22
        Hint = 'Max amount of this fish allowed at once'
        PopupMenu = RightClickMenu
        TabOrder = 18
        Text = '2'
        OnMouseDown = ControlMouseDown
      end
      object Fish10: TCheckBox
        Tag = 30
        Left = 532
        Top = 30
        Width = 15
        Height = 17
        Hint = 'Toggle fish'
        Caption = 'Fish10'
        PopupMenu = RightClickMenu
        State = cbChecked
        TabOrder = 19
        OnMouseDown = ControlMouseDown
      end
      object Fish11: TCheckBox
        Tag = 30
        Left = 532
        Top = 68
        Width = 15
        Height = 17
        Hint = 'Toggle fish'
        Caption = 'CheckBox2'
        PopupMenu = RightClickMenu
        State = cbChecked
        TabOrder = 20
        OnMouseDown = ControlMouseDown
      end
      object Fish12: TCheckBox
        Tag = 30
        Left = 532
        Top = 106
        Width = 15
        Height = 17
        Hint = 'Toggle fish'
        Caption = 'CheckBox3'
        PopupMenu = RightClickMenu
        State = cbChecked
        TabOrder = 21
        OnMouseDown = ControlMouseDown
      end
      object Fish13: TCheckBox
        Tag = 30
        Left = 532
        Top = 144
        Width = 15
        Height = 17
        Hint = 'Toggle fish'
        Caption = 'CheckBox3'
        PopupMenu = RightClickMenu
        State = cbChecked
        TabOrder = 22
        OnMouseDown = ControlMouseDown
      end
      object Fish14: TCheckBox
        Tag = 30
        Left = 532
        Top = 182
        Width = 15
        Height = 17
        Hint = 'Toggle fish'
        Caption = 'CheckBox3'
        PopupMenu = RightClickMenu
        State = cbChecked
        TabOrder = 23
        OnMouseDown = ControlMouseDown
      end
      object Fish15: TCheckBox
        Tag = 30
        Left = 532
        Top = 220
        Width = 15
        Height = 17
        Hint = 'Toggle fish'
        Caption = 'CheckBox3'
        PopupMenu = RightClickMenu
        State = cbChecked
        TabOrder = 24
        OnMouseDown = ControlMouseDown
      end
      object Fish16: TCheckBox
        Tag = 30
        Left = 532
        Top = 258
        Width = 15
        Height = 17
        Hint = 'Toggle fish'
        Caption = 'CheckBox3'
        PopupMenu = RightClickMenu
        State = cbChecked
        TabOrder = 25
        OnMouseDown = ControlMouseDown
      end
      object Fish17: TCheckBox
        Tag = 30
        Left = 532
        Top = 296
        Width = 15
        Height = 17
        Hint = 'Toggle fish'
        Caption = 'CheckBox3'
        PopupMenu = RightClickMenu
        State = cbChecked
        TabOrder = 26
        OnMouseDown = ControlMouseDown
      end
      object Fish18: TCheckBox
        Tag = 30
        Left = 532
        Top = 334
        Width = 15
        Height = 17
        Hint = 'Toggle fish'
        Caption = 'CheckBox3'
        PopupMenu = RightClickMenu
        State = cbChecked
        TabOrder = 27
        OnMouseDown = ControlMouseDown
      end
      object Fish10Max: TEdit
        Tag = 30
        Left = 580
        Top = 28
        Width = 27
        Height = 22
        Hint = 'Max amount of this fish allowed at once'
        PopupMenu = RightClickMenu
        TabOrder = 28
        Text = '2'
        OnMouseDown = ControlMouseDown
      end
      object Fish11Max: TEdit
        Tag = 30
        Left = 580
        Top = 66
        Width = 27
        Height = 22
        Hint = 'Max amount of this fish allowed at once'
        PopupMenu = RightClickMenu
        TabOrder = 29
        Text = '2'
        OnMouseDown = ControlMouseDown
      end
      object Fish12Max: TEdit
        Tag = 30
        Left = 580
        Top = 104
        Width = 27
        Height = 22
        Hint = 'Max amount of this fish allowed at once'
        PopupMenu = RightClickMenu
        TabOrder = 30
        Text = '2'
        OnMouseDown = ControlMouseDown
      end
      object Fish13Max: TEdit
        Tag = 30
        Left = 580
        Top = 142
        Width = 27
        Height = 22
        Hint = 'Max amount of this fish allowed at once'
        PopupMenu = RightClickMenu
        TabOrder = 31
        Text = '3'
        OnMouseDown = ControlMouseDown
      end
      object Fish14Max: TEdit
        Tag = 30
        Left = 580
        Top = 180
        Width = 27
        Height = 22
        Hint = 'Max amount of this fish allowed at once'
        PopupMenu = RightClickMenu
        TabOrder = 32
        Text = '3'
        OnMouseDown = ControlMouseDown
      end
      object Fish15Max: TEdit
        Tag = 30
        Left = 580
        Top = 218
        Width = 27
        Height = 22
        Hint = 'Max amount of this fish allowed at once'
        PopupMenu = RightClickMenu
        TabOrder = 33
        Text = '3'
        OnMouseDown = ControlMouseDown
      end
      object Fish16Max: TEdit
        Tag = 30
        Left = 580
        Top = 256
        Width = 27
        Height = 22
        Hint = 'Max amount of this fish allowed at once'
        PopupMenu = RightClickMenu
        TabOrder = 34
        Text = '2'
        OnMouseDown = ControlMouseDown
      end
      object Fish17Max: TEdit
        Tag = 30
        Left = 580
        Top = 294
        Width = 27
        Height = 22
        Hint = 'Max amount of this fish allowed at once'
        PopupMenu = RightClickMenu
        TabOrder = 35
        Text = '2'
        OnMouseDown = ControlMouseDown
      end
      object Fish18Max: TEdit
        Tag = 30
        Left = 580
        Top = 332
        Width = 27
        Height = 22
        Hint = 'Max amount of this fish allowed at once'
        PopupMenu = RightClickMenu
        TabOrder = 36
        Text = '2'
        OnMouseDown = ControlMouseDown
      end
      object Fish19: TCheckBox
        Tag = 30
        Left = 320
        Top = 184
        Width = 15
        Height = 17
        Hint = 'Toggle fish'
        Caption = 'CheckBox3'
        PopupMenu = RightClickMenu
        State = cbChecked
        TabOrder = 37
        OnMouseDown = ControlMouseDown
      end
      object Fish20: TCheckBox
        Tag = 30
        Left = 320
        Top = 222
        Width = 15
        Height = 17
        Hint = 'Toggle fish'
        Caption = 'CheckBox3'
        PopupMenu = RightClickMenu
        State = cbChecked
        TabOrder = 38
        OnMouseDown = ControlMouseDown
      end
      object Fish21: TCheckBox
        Tag = 30
        Left = 320
        Top = 260
        Width = 15
        Height = 17
        Hint = 'Toggle fish'
        Caption = 'CheckBox3'
        PopupMenu = RightClickMenu
        State = cbChecked
        TabOrder = 39
        OnMouseDown = ControlMouseDown
      end
      object Fish22: TCheckBox
        Tag = 30
        Left = 320
        Top = 298
        Width = 15
        Height = 17
        Hint = 'Toggle fish'
        Caption = 'CheckBox3'
        PopupMenu = RightClickMenu
        State = cbChecked
        TabOrder = 40
        OnMouseDown = ControlMouseDown
      end
      object Fish23: TCheckBox
        Tag = 30
        Left = 320
        Top = 336
        Width = 15
        Height = 17
        Hint = 'Toggle fish'
        Caption = 'CheckBox3'
        PopupMenu = RightClickMenu
        State = cbChecked
        TabOrder = 41
        OnMouseDown = ControlMouseDown
      end
      object Fish19Max: TEdit
        Tag = 30
        Left = 368
        Top = 182
        Width = 27
        Height = 22
        Hint = 'Max amount of this fish allowed at once'
        PopupMenu = RightClickMenu
        TabOrder = 42
        Text = '2'
        OnMouseDown = ControlMouseDown
      end
      object Fish20Max: TEdit
        Tag = 30
        Left = 368
        Top = 220
        Width = 27
        Height = 22
        Hint = 'Max amount of this fish allowed at once'
        PopupMenu = RightClickMenu
        TabOrder = 43
        Text = '3'
        OnMouseDown = ControlMouseDown
      end
      object Fish21Max: TEdit
        Tag = 30
        Left = 368
        Top = 258
        Width = 27
        Height = 22
        Hint = 'Max amount of this fish allowed at once'
        PopupMenu = RightClickMenu
        TabOrder = 44
        Text = '2'
        OnMouseDown = ControlMouseDown
      end
      object Fish22Max: TEdit
        Tag = 30
        Left = 368
        Top = 296
        Width = 27
        Height = 22
        Hint = 'Max amount of this fish allowed at once'
        PopupMenu = RightClickMenu
        TabOrder = 45
        Text = '2'
        OnMouseDown = ControlMouseDown
      end
      object Fish23Max: TEdit
        Tag = 30
        Left = 368
        Top = 334
        Width = 27
        Height = 22
        Hint = 'Max amount of this fish allowed at once'
        PopupMenu = RightClickMenu
        TabOrder = 46
        Text = '2'
        OnMouseDown = ControlMouseDown
      end
      object RandomFishCheck: TCheckBox
        Tag = 30
        Left = 18
        Top = 3
        Width = 83
        Height = 17
        Hint = 'Choose fish randomally at start-up'
        Caption = 'Random'
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        PopupMenu = RightClickMenu
        TabOrder = 47
        OnMouseDown = ControlMouseDown
      end
      object AllFishCheck: TCheckBox
        Tag = 30
        Left = 106
        Top = 3
        Width = 51
        Height = 17
        Hint = 'Choose all fish'
        Caption = 'All'
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        PopupMenu = RightClickMenu
        TabOrder = 48
        OnClick = AllFishCheckClick
        OnMouseDown = ControlMouseDown
      end
      object FishThemeBox: TComboBox
        Tag = 30
        Left = 239
        Top = 0
        Width = 131
        Height = 22
        Hint = 'Choose fish theme'
        DropDownCount = 12
        ItemHeight = 14
        Items.Strings = (
          'Very Small Fish'
          'Small Fish'
          'Freshwater Fish'
          'Tropical Fish'
          'Current Settings')
        MaxLength = 20
        PopupMenu = RightClickMenu
        TabOrder = 49
        Text = 'Fish Themes'
        OnChange = FishThemeBoxChange
      end
      object TotalFish: TEdit
        Tag = 30
        Left = 580
        Top = 0
        Width = 27
        Height = 22
        Hint = 'Total number of fish that can be on-screen at once'
        PopupMenu = RightClickMenu
        TabOrder = 50
        Text = '14'
        OnMouseDown = ControlMouseDown
      end
    end
    object TTabPage
      Left = 4
      Top = 25
      Caption = 'Other Creatures'
      object CartoonWarning: TLabel
        Tag = 80
        Left = 14
        Top = 347
        Width = 389
        Height = 18
        Caption =
          'Note: All of the above are fully animated and use more memory th' +
          'an the real fish.'
        Font.Color = clMaroon
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        PopupMenu = RightClickMenu
        OnMouseDown = ControlMouseDown
        OnMouseMove = SignDescMouseMove
      end
      object TotalCreatureLabel: TLabel
        Tag = 80
        Left = 477
        Top = 347
        Width = 99
        Height = 14
        Hint = 'Total number of fish that can be on-screen at once'
        Caption = 'Total max creatures:'
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        PopupMenu = RightClickMenu
        OnMouseDown = ControlMouseDown
      end
      object CartoonBox2: TPanel
        Tag = 80
        Left = 14
        Top = 68
        Width = 265
        Height = 68
        PopupMenu = RightClickMenu
        TabOrder = 0
        OnMouseDown = ControlMouseDown
        object CarDesc2: TLabel
          Left = 124
          Top = 5
          Width = 136
          Height = 41
          AutoSize = False
          Caption = 'An unusually happy octopus.'
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          WordWrap = True
        end
        object CarMaxLabel2: TLabel
          Tag = 80
          Left = 202
          Top = 49
          Width = 23
          Height = 14
          Hint = 'Max amount of this creature allowed at once'
          Caption = 'Max:'
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          PopupMenu = RightClickMenu
          OnMouseDown = ControlMouseDown
        end
        object CartoonImage2: TImage
          Tag = 80
          Left = 8
          Top = 5
          Width = 105
          Height = 59
          Picture.Data = {<image013.bmp>}
          OnMouseDown = ControlMouseDown
        end
        object Cartoon2: TCheckBox
          Tag = 80
          Left = 182
          Top = 48
          Width = 15
          Height = 17
          Hint = 'Check to enable'
          Caption = 'Fish2'
          PopupMenu = RightClickMenu
          State = cbChecked
          TabOrder = 0
          OnMouseDown = ControlMouseDown
        end
        object CartoonMax2: TEdit
          Tag = 80
          Left = 230
          Top = 46
          Width = 27
          Height = 22
          Hint = 'Max amount of this creature allowed at once'
          PopupMenu = RightClickMenu
          TabOrder = 1
          Text = '4'
          OnMouseDown = ControlMouseDown
        end
      end
      object CartoonBox3: TPanel
        Tag = 80
        Left = 14
        Top = 136
        Width = 265
        Height = 68
        PopupMenu = RightClickMenu
        TabOrder = 1
        OnMouseDown = ControlMouseDown
        object CarDesc3: TLabel
          Tag = 80
          Left = 124
          Top = 5
          Width = 136
          Height = 41
          AutoSize = False
          Caption = 'Your basic crayfish.'
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          WordWrap = True
          OnMouseDown = ControlMouseDown
        end
        object CarMaxLabel3: TLabel
          Tag = 80
          Left = 202
          Top = 49
          Width = 23
          Height = 14
          Hint = 'Max amount of this creature allowed at once'
          Caption = 'Max:'
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          PopupMenu = RightClickMenu
          OnMouseDown = ControlMouseDown
        end
        object CartoonImage3: TImage
          Tag = 80
          Left = 8
          Top = 5
          Width = 105
          Height = 59
          Picture.Data = {<image014.bmp>}
          OnMouseDown = ControlMouseDown
        end
        object Cartoon3: TCheckBox
          Tag = 80
          Left = 182
          Top = 48
          Width = 15
          Height = 17
          Hint = 'Check to enable'
          Caption = 'Fish2'
          PopupMenu = RightClickMenu
          State = cbChecked
          TabOrder = 0
          OnMouseDown = ControlMouseDown
        end
        object CartoonMax3: TEdit
          Tag = 80
          Left = 230
          Top = 46
          Width = 27
          Height = 22
          Hint = 'Max amount of this creature allowed at once'
          PopupMenu = RightClickMenu
          TabOrder = 1
          Text = '4'
          OnMouseDown = ControlMouseDown
        end
      end
      object CartoonBox4: TPanel
        Tag = 80
        Left = 14
        Top = 204
        Width = 265
        Height = 68
        PopupMenu = RightClickMenu
        TabOrder = 2
        OnMouseDown = ControlMouseDown
        OnMouseMove = SignDescMouseMove
        object CarDesc4: TLabel
          Left = 124
          Top = 3
          Width = 136
          Height = 41
          AutoSize = False
          Caption =
            'A very suspiscious-looking character.  He/she/it'#39's got his/her/i' +
            'ts eye on YOU.'
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          WordWrap = True
        end
        object CarMaxLabel4: TLabel
          Tag = 80
          Left = 202
          Top = 49
          Width = 23
          Height = 14
          Hint = 'Max amount of this creature allowed at once'
          Caption = 'Max:'
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          PopupMenu = RightClickMenu
          OnMouseDown = ControlMouseDown
        end
        object CartoonImage4: TImage
          Tag = 80
          Left = 8
          Top = 5
          Width = 105
          Height = 59
          Picture.Data = {<image015.bmp>}
          OnMouseDown = ControlMouseDown
        end
        object Cartoon4: TCheckBox
          Tag = 80
          Left = 182
          Top = 48
          Width = 15
          Height = 17
          Hint = 'Check to enable'
          Caption = 'Fish2'
          PopupMenu = RightClickMenu
          State = cbChecked
          TabOrder = 0
          OnMouseDown = ControlMouseDown
        end
        object CartoonMax4: TEdit
          Tag = 80
          Left = 230
          Top = 46
          Width = 27
          Height = 22
          Hint = 'Max amount of this creature allowed at once'
          PopupMenu = RightClickMenu
          TabOrder = 1
          Text = '4'
          OnMouseDown = ControlMouseDown
        end
      end
      object SignPanel: TPanel
        Tag = 80
        Left = 14
        Top = 272
        Width = 265
        Height = 68
        TabOrder = 3
        OnMouseDown = ControlMouseDown
        OnMouseMove = SignDescMouseMove
        object SignDesc: TLabel
          Tag = 80
          Left = 124
          Top = 5
          Width = 136
          Height = 16
          AutoSize = False
          Caption = 'Customizable sign:'
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          WordWrap = True
          OnMouseDown = ControlMouseDown
          OnMouseMove = SignDescMouseMove
        end
        object SignImage: TImage
          Tag = 80
          Left = 8
          Top = 5
          Width = 105
          Height = 59
          Picture.Data = {<image016.bmp>}
          OnMouseDown = ControlMouseDown
          OnMouseMove = SignDescMouseMove
        end
        object SignPosLabel: TLabel
          Left = 144
          Top = 50
          Width = 21
          Height = 14
          Caption = 'Pos:'
          PopupMenu = RightClickMenu
          OnMouseMove = SignDescMouseMove
        end
        object Sign: TCheckBox
          Tag = 80
          Left = 124
          Top = 48
          Width = 15
          Height = 17
          Hint = 'Check to enable'
          Caption = 'Fish2'
          PopupMenu = RightClickMenu
          TabOrder = 0
          OnMouseDown = ControlMouseDown
          OnMouseMove = SignDescMouseMove
        end
        object SignFront: TRadioButton
          Tag = 80
          Left = 168
          Top = 49
          Width = 45
          Height = 17
          Caption = 'Front'
          PopupMenu = RightClickMenu
          TabOrder = 1
          OnMouseDown = ControlMouseDown
          OnMouseMove = SignDescMouseMove
        end
        object SignBack: TRadioButton
          Tag = 80
          Left = 216
          Top = 49
          Width = 45
          Height = 17
          Caption = 'Back'
          PopupMenu = RightClickMenu
          TabOrder = 2
          OnMouseDown = ControlMouseDown
          OnMouseMove = SignDescMouseMove
        end
        object SignText: TComboBox
          Left = 124
          Top = 21
          Width = 133
          Height = 22
          DropDownCount = 5
          ItemHeight = 14
          Items.Strings = (
            'Hi Mom!'
            'No Fishing'
            'No Smoking'
            'Fishing Season'
            'Dagwood'#39's Den'
            'Don'#39't feed the fish')
          TabOrder = 3
          OnChange = SignTextChange
          OnExit = SignTextExit
        end
      end
      object TotalCreatures: TEdit
        Tag = 80
        Left = 579
        Top = 345
        Width = 27
        Height = 22
        Hint = 'Total number of fish that can be on-screen at once'
        PopupMenu = RightClickMenu
        TabOrder = 4
        Text = '14'
        OnMouseDown = ControlMouseDown
      end
      object CartoonBox6: TPanel
        Tag = 80
        Left = 340
        Top = 0
        Width = 265
        Height = 68
        PopupMenu = RightClickMenu
        TabOrder = 5
        OnMouseDown = ControlMouseDown
        object CarDesc6: TLabel
          Tag = 80
          Left = 124
          Top = 5
          Width = 136
          Height = 41
          AutoSize = False
          Caption = 'Some kind of hybrid fish that likes to blow bubbles.'
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          WordWrap = True
          OnMouseDown = ControlMouseDown
        end
        object CarMaxLabel6: TLabel
          Tag = 80
          Left = 202
          Top = 49
          Width = 23
          Height = 14
          Hint = 'Max amount of this creature allowed at once'
          Caption = 'Max:'
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          PopupMenu = RightClickMenu
          OnMouseDown = ControlMouseDown
        end
        object CartoonImage6: TImage
          Tag = 80
          Left = 8
          Top = 5
          Width = 105
          Height = 59
          Picture.Data = {<image017.bmp>}
          PopupMenu = RightClickMenu
          OnMouseDown = ControlMouseDown
        end
        object Cartoon6: TCheckBox
          Tag = 80
          Left = 182
          Top = 48
          Width = 15
          Height = 17
          Hint = 'Check to enable'
          Caption = 'Fish2'
          PopupMenu = RightClickMenu
          State = cbChecked
          TabOrder = 0
          OnMouseDown = ControlMouseDown
        end
        object CartoonMax6: TEdit
          Tag = 80
          Left = 230
          Top = 46
          Width = 27
          Height = 22
          Hint = 'Max amount of this creature allowed at once'
          PopupMenu = RightClickMenu
          TabOrder = 1
          Text = '4'
          OnMouseDown = ControlMouseDown
        end
      end
      object CartoonBox7: TPanel
        Tag = 80
        Left = 340
        Top = 68
        Width = 265
        Height = 68
        PopupMenu = RightClickMenu
        TabOrder = 6
        OnMouseDown = ControlMouseDown
        object CarDesc7: TLabel
          Tag = 80
          Left = 124
          Top = 3
          Width = 136
          Height = 41
          AutoSize = False
          Caption =
            'The legendary underwater dinosaur - The biggest creature in Aqua' +
            'Scape.'
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          WordWrap = True
          OnMouseDown = ControlMouseDown
        end
        object CarMaxLabel7: TLabel
          Tag = 80
          Left = 202
          Top = 49
          Width = 23
          Height = 14
          Hint = 'Max amount of this creature allowed at once'
          Caption = 'Max:'
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          PopupMenu = RightClickMenu
          OnMouseDown = ControlMouseDown
        end
        object CartoonImage7: TImage
          Tag = 80
          Left = 8
          Top = 5
          Width = 105
          Height = 59
          Picture.Data = {<image018.bmp>}
          PopupMenu = RightClickMenu
          OnMouseDown = ControlMouseDown
        end
        object Cartoon7: TCheckBox
          Tag = 80
          Left = 182
          Top = 48
          Width = 15
          Height = 17
          Hint = 'Check to enable'
          Caption = 'Fish2'
          PopupMenu = RightClickMenu
          State = cbChecked
          TabOrder = 0
          OnMouseDown = ControlMouseDown
        end
        object CartoonMax7: TEdit
          Tag = 80
          Left = 230
          Top = 46
          Width = 27
          Height = 22
          Hint = 'Max amount of this creature allowed at once'
          PopupMenu = RightClickMenu
          TabOrder = 1
          Text = '4'
          OnMouseDown = ControlMouseDown
        end
      end
      object CartoonBox8: TPanel
        Tag = 80
        Left = 340
        Top = 136
        Width = 265
        Height = 68
        PopupMenu = RightClickMenu
        TabOrder = 7
        OnMouseDown = ControlMouseDown
        object CarDesc8: TLabel
          Tag = 80
          Left = 124
          Top = 5
          Width = 136
          Height = 41
          AutoSize = False
          Caption = 'A baby alligator.  Perfect size for a fish tank.'
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          WordWrap = True
          OnMouseDown = ControlMouseDown
        end
        object CarMaxLabel8: TLabel
          Tag = 80
          Left = 202
          Top = 49
          Width = 23
          Height = 14
          Hint = 'Max amount of this creature allowed at once'
          Caption = 'Max:'
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          PopupMenu = RightClickMenu
          OnMouseDown = ControlMouseDown
        end
        object CartoonImage8: TImage
          Tag = 80
          Left = 8
          Top = 5
          Width = 105
          Height = 59
          Picture.Data = {<image019.bmp>}
          PopupMenu = RightClickMenu
          OnMouseDown = ControlMouseDown
        end
        object Cartoon8: TCheckBox
          Tag = 80
          Left = 182
          Top = 48
          Width = 15
          Height = 17
          Hint = 'Check to enable'
          Caption = 'Fish2'
          PopupMenu = RightClickMenu
          State = cbChecked
          TabOrder = 0
          OnMouseDown = ControlMouseDown
        end
        object CartoonMax8: TEdit
          Tag = 80
          Left = 230
          Top = 46
          Width = 27
          Height = 22
          Hint = 'Max amount of this creature allowed at once'
          PopupMenu = RightClickMenu
          TabOrder = 1
          Text = '4'
          OnMouseDown = ControlMouseDown
        end
      end
      object CartoonBox9: TPanel
        Tag = 80
        Left = 340
        Top = 204
        Width = 265
        Height = 68
        PopupMenu = RightClickMenu
        TabOrder = 8
        OnMouseDown = ControlMouseDown
        object CarDesc9: TLabel
          Tag = 80
          Left = 124
          Top = 5
          Width = 136
          Height = 41
          AutoSize = False
          Caption = 'A friendly whale complete with a functioning air spout.'
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          WordWrap = True
          OnMouseDown = ControlMouseDown
        end
        object CarMaxLabel9: TLabel
          Tag = 80
          Left = 202
          Top = 49
          Width = 23
          Height = 14
          Hint = 'Max amount of this creature allowed at once'
          Caption = 'Max:'
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          PopupMenu = RightClickMenu
          OnMouseDown = ControlMouseDown
        end
        object CartoonImage9: TImage
          Tag = 80
          Left = 8
          Top = 5
          Width = 105
          Height = 59
          Picture.Data = {<image020.bmp>}
          PopupMenu = RightClickMenu
          OnMouseDown = ControlMouseDown
        end
        object Cartoon9: TCheckBox
          Tag = 80
          Left = 182
          Top = 48
          Width = 15
          Height = 17
          Hint = 'Check to enable'
          Caption = 'Fish2'
          PopupMenu = RightClickMenu
          State = cbChecked
          TabOrder = 0
          OnMouseDown = ControlMouseDown
        end
        object CartoonMax9: TEdit
          Tag = 80
          Left = 230
          Top = 46
          Width = 27
          Height = 22
          Hint = 'Max amount of this creature allowed at once'
          PopupMenu = RightClickMenu
          TabOrder = 1
          Text = '4'
          OnMouseDown = ControlMouseDown
        end
      end
      object ChestBox: TPanel
        Tag = 80
        Left = 340
        Top = 272
        Width = 265
        Height = 68
        PopupMenu = RightClickMenu
        TabOrder = 9
        OnMouseDown = ControlMouseDown
        object ChestDesc: TLabel
          Tag = 80
          Left = 124
          Top = 3
          Width = 136
          Height = 41
          AutoSize = False
          Caption = 'A treasure chest that opens periodically to release bubbles.'
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          WordWrap = True
          OnMouseDown = ControlMouseDown
        end
        object ChestImage: TImage
          Tag = 80
          Left = 8
          Top = 5
          Width = 105
          Height = 59
          Picture.Data = {<image021.bmp>}
          PopupMenu = RightClickMenu
          OnMouseDown = ControlMouseDown
        end
        object CheckPosLabel: TLabel
          Tag = 80
          Left = 144
          Top = 50
          Width = 21
          Height = 14
          Caption = 'Pos:'
          OnMouseDown = ControlMouseDown
        end
        object Chest: TCheckBox
          Tag = 80
          Left = 124
          Top = 48
          Width = 15
          Height = 17
          Hint = 'Check to enable'
          Caption = 'Fish2'
          PopupMenu = RightClickMenu
          TabOrder = 0
          OnMouseDown = ControlMouseDown
        end
        object ChestFront: TRadioButton
          Tag = 80
          Left = 168
          Top = 49
          Width = 45
          Height = 17
          Caption = 'Front'
          PopupMenu = RightClickMenu
          TabOrder = 1
          OnMouseDown = ControlMouseDown
        end
        object ChestBack: TRadioButton
          Tag = 80
          Left = 216
          Top = 49
          Width = 45
          Height = 17
          Caption = 'Back'
          PopupMenu = RightClickMenu
          TabOrder = 2
          OnMouseDown = ControlMouseDown
        end
      end
      object CartoonBox1: TPanel
        Tag = 80
        Left = 14
        Top = 0
        Width = 265
        Height = 68
        PopupMenu = RightClickMenu
        TabOrder = 10
        object CarDesc1: TLabel
          Tag = 80
          Left = 124
          Top = 5
          Width = 136
          Height = 41
          AutoSize = False
          Caption = 'It'#39's a swimming caveman, complete with club and air bubbles.'
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          WordWrap = True
          OnMouseDown = ControlMouseDown
        end
        object CarMaxLabel1: TLabel
          Tag = 80
          Left = 202
          Top = 49
          Width = 23
          Height = 14
          Hint = 'Max amount of this creature allowed at once'
          Caption = 'Max:'
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          PopupMenu = RightClickMenu
          OnMouseDown = ControlMouseDown
        end
        object CartoonImage1: TImage
          Tag = 80
          Left = 8
          Top = 5
          Width = 105
          Height = 59
          Picture.Data = {<image022.bmp>}
          OnMouseDown = ControlMouseDown
        end
        object Cartoon1: TCheckBox
          Tag = 80
          Left = 182
          Top = 48
          Width = 15
          Height = 17
          Hint = 'Check to enable'
          Caption = 'Fish2'
          PopupMenu = RightClickMenu
          State = cbChecked
          TabOrder = 0
          OnMouseDown = ControlMouseDown
        end
        object CartoonMax1: TEdit
          Tag = 80
          Left = 230
          Top = 48
          Width = 27
          Height = 22
          Hint = 'Max amount of this creature allowed at once'
          PopupMenu = RightClickMenu
          TabOrder = 1
          Text = '4'
          OnMouseDown = ControlMouseDown
        end
      end
    end
    object TTabPage
      Left = 4
      Top = 25
      Caption = 'Plant Life'
      object Tank: TImage
        Tag = 40
        Left = 10
        Top = 2
        Width = 600
        Height = 293
        Picture.Data = {<image023.bmp>}
        PopupMenu = RightClickMenu
        OnMouseDown = ControlMouseDown
      end
      object Plant1: TImage
        Left = 66
        Top = 6
        Width = 20
        Height = 15
        AutoSize = True
        DragCursor = crDefault
        Visible = False
        OnMouseDown = Plant1MouseDown
        OnMouseMove = Plant1MouseMove
        OnMouseUp = Plant1MouseUp
      end
      object PlantThumbnails: TImage
        Tag = 40
        Left = 10
        Top = 298
        Width = 333
        Height = 45
        Picture.Data = {<image024.bmp>}
        PopupMenu = RightClickMenu
        Stretch = True
        OnMouseDown = PlantThumbnailsMouseDown
      end
      object PlantLifeLabel: TLabel
        Tag = 40
        Left = 10
        Top = 349
        Width = 423
        Height = 13
        AutoSize = False
        Caption =
          'To add a plant, click a plant thumbnail.  Move the plant around ' +
          'by clicking and draging.'
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        PopupMenu = RightClickMenu
        OnMouseDown = ControlMouseDown
      end
      object AddPlantThemeButton: TSpeedButton
        Tag = 40
        Left = 553
        Top = 321
        Width = 25
        Height = 21
        Hint = 'Add or save current theme'
        Glyph.Data = {
          4E010000424D4E01000000000000760000002800000015000000120000000100
          040000000000D800000000000000000000000000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333330003333333333333333333330003333333330033333333330003333
          3333300333333333300033333333300333333333300033333333300333333333
          3000333333333003333333333000333333333003333333333000333000000000
          0000033330003330000000000000033330003333333330033333333330003333
          3333300333333333300033333333300333333333300033333333300333333333
          3000333333333003333333333000333333333333333333333000333333333333
          333333333000333333333333333333333000}
        Spacing = 2
        OnClick = AddPlantThemeButtonClick
        OnMouseDown = ControlMouseDown
      end
      object DeletePlantThemeButton: TSpeedButton
        Tag = 40
        Left = 585
        Top = 321
        Width = 25
        Height = 21
        Hint = 'Delete current theme'
        Glyph.Data = {
          4E010000424D4E01000000000000760000002800000015000000120000000100
          040000000000D800000000000000000000000000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333330003333333333333333333330003333333333333333333330003333
          3333333333333333300033333333333333333333300033333333333333333333
          3000333333333333333333333000333333333333333333333000333000000000
          0000033330003330000000000000033330003333333333333333333330003333
          3333333333333333300033333333333333333333300033333333333333333333
          3000333333333333333333333000333333333333333333333000333333333333
          333333333000333333333333333333333000}
        OnClick = DeletePlantThemeButtonClick
        OnMouseDown = ControlMouseDown
      end
      object CopyButton: TSpeedButton
        Tag = 40
        Left = 349
        Top = 298
        Width = 25
        Height = 21
        Hint = 'Duplicate current plant'
        Glyph.Data = {
          4E010000424D4E01000000000000760000002800000014000000120000000100
          040000000000D800000000000000000000000000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333300003333333333333333333300003333333334444444443300003333
          333334FFFFFFF43300003333333334F00000F43300003330000004FFFFFFF433
          00003330FFFFF4F00000F43300003330F00004FFFFFFF43300003330FFFFF4F0
          0F44443300003330F00004FFFF4F433300003330FFFFF4FFFF44333300003330
          F00F04444443333300003330FFFF0F033333333300003330FFFF003333333333
          0000333000000333333333330000333333333333333333330000333333333333
          333333330000333333333333333333330000}
        OnClick = CopyButtonClick
        OnMouseDown = ControlMouseDown
      end
      object CutButton: TSpeedButton
        Tag = 40
        Left = 379
        Top = 298
        Width = 25
        Height = 21
        Hint = 'Delete current plant'
        Glyph.Data = {
          4E010000424D4E01000000000000760000002800000014000000120000000100
          040000000000D800000000000000000000000000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333300003333333333333333333300003333333333333333333300003333
          3344333333333333000033333433433443333333000033333433434334333333
          0000333333444343343333330000333333334344433333330000333333334043
          3333333300003333333330333333333300003333333300033333333300003333
          3333030333333333000033333330030033333333000033333330333033333333
          0000333333303330333333330000333333333333333333330000333333333333
          333333330000333333333333333333330000}
        OnClick = CutButtonClick
        OnMouseDown = ControlMouseDown
      end
      object DepthLabel: TLabel
        Tag = 40
        Left = 350
        Top = 331
        Width = 31
        Height = 14
        Hint = 'Choose a depth'
        Caption = 'Depth:'
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        PopupMenu = RightClickMenu
        OnMouseDown = ControlMouseDown
      end
      object EnlargeButton: TSpeedButton
        Tag = 40
        Left = 409
        Top = 298
        Width = 25
        Height = 21
        Hint = 'Enlarge plant'
        Glyph.Data = {
          4E010000424D4E01000000000000760000002800000014000000120000000100
          040000000000D8000000C30E0000C30E00001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333300003333333333333330033300003333333333333300033300003333
          3333333334403333000033333333333344433333000033333344443444333333
          0000333366FFFF444333333300003336FFFFFFFF4333333300003336FFF44FFF
          433333330000336FFFF44FFFF43333330000336FF444444FF43333330000336F
          F444444FF43333330000336FFFF44FFFF433333300003336FFF44FEF63333333
          00003336FFFFFEFF633333330000333366FFFF66333333330000333333666633
          333333330000333333333333333333330000}
        OnClick = EnlargeButtonClick
      end
      object ReduceButton: TSpeedButton
        Tag = 40
        Left = 439
        Top = 298
        Width = 25
        Height = 21
        Hint = 'Reduce plant'
        Glyph.Data = {
          4E010000424D4E01000000000000760000002800000014000000120000000100
          040000000000D8000000C30E0000C30E00001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333300003333333333333330033300003333333333333300033300003333
          3333333334403333000033333333333344433333000033333344443444333333
          0000333366FFFF444333333300003336FFFFFFFF4333333300003336FFFFFFFF
          433333330000336FFFFFFFFFF43333330000336FF444444FF43333330000336F
          F444444FF43333330000336FFFFFFFFFF433333300003336FEFFFFFF63333333
          00003336FFEFFFFF633333330000333366FFFF66333333330000333333666633
          333333330000333333333333333333330000}
        OnClick = ReduceButtonClick
      end
      object Plant2: TImage
        Left = 90
        Top = 6
        Width = 20
        Height = 15
        AutoSize = True
        DragCursor = crDefault
        Visible = False
        OnMouseDown = Plant2MouseDown
        OnMouseMove = Plant2MouseMove
        OnMouseUp = Plant2MouseUp
      end
      object Plant3: TImage
        Left = 114
        Top = 6
        Width = 20
        Height = 15
        AutoSize = True
        DragCursor = crDefault
        Visible = False
        OnMouseDown = Plant3MouseDown
        OnMouseMove = Plant3MouseMove
        OnMouseUp = Plant3MouseUp
      end
      object Plant4: TImage
        Left = 138
        Top = 6
        Width = 20
        Height = 15
        AutoSize = True
        DragCursor = crDefault
        Visible = False
        OnMouseDown = Plant4MouseDown
        OnMouseMove = Plant4MouseMove
        OnMouseUp = Plant4MouseUp
      end
      object Plant5: TImage
        Left = 162
        Top = 6
        Width = 20
        Height = 15
        AutoSize = True
        DragCursor = crDefault
        Visible = False
        OnMouseDown = Plant5MouseDown
        OnMouseMove = Plant5MouseMove
        OnMouseUp = Plant5MouseUp
      end
      object Plant6: TImage
        Left = 182
        Top = 6
        Width = 20
        Height = 15
        AutoSize = True
        DragCursor = crDefault
        Visible = False
        OnMouseDown = Plant6MouseDown
        OnMouseMove = Plant6MouseMove
        OnMouseUp = Plant6MouseUp
      end
      object Plant7: TImage
        Left = 206
        Top = 6
        Width = 20
        Height = 15
        AutoSize = True
        DragCursor = crDefault
        Visible = False
        OnMouseDown = Plant7MouseDown
        OnMouseMove = Plant7MouseMove
        OnMouseUp = Plant7MouseUp
      end
      object Plant8: TImage
        Left = 230
        Top = 6
        Width = 20
        Height = 15
        AutoSize = True
        DragCursor = crDefault
        Visible = False
        OnMouseDown = Plant8MouseDown
        OnMouseMove = Plant8MouseMove
        OnMouseUp = Plant8MouseUp
      end
      object Plant9: TImage
        Left = 254
        Top = 6
        Width = 20
        Height = 15
        AutoSize = True
        DragCursor = crDefault
        Visible = False
        OnMouseDown = Plant9MouseDown
        OnMouseMove = Plant9MouseMove
        OnMouseUp = Plant9MouseUp
      end
      object Plant10: TImage
        Left = 278
        Top = 6
        Width = 20
        Height = 15
        AutoSize = True
        DragCursor = crDefault
        Visible = False
        OnMouseDown = Plant10MouseDown
        OnMouseMove = Plant10MouseMove
        OnMouseUp = Plant10MouseUp
      end
      object Plant11: TImage
        Left = 302
        Top = 6
        Width = 20
        Height = 15
        AutoSize = True
        DragCursor = crDefault
        Visible = False
        OnMouseDown = Plant11MouseDown
        OnMouseMove = Plant11MouseMove
        OnMouseUp = Plant11MouseUp
      end
      object Plant12: TImage
        Left = 326
        Top = 6
        Width = 20
        Height = 15
        AutoSize = True
        DragCursor = crDefault
        Visible = False
        OnMouseDown = Plant12MouseDown
        OnMouseMove = Plant12MouseMove
        OnMouseUp = Plant12MouseUp
      end
      object Plant13: TImage
        Left = 350
        Top = 6
        Width = 20
        Height = 15
        AutoSize = True
        DragCursor = crDefault
        Visible = False
        OnMouseDown = Plant13MouseDown
        OnMouseMove = Plant13MouseMove
        OnMouseUp = Plant13MouseUp
      end
      object Plant14: TImage
        Left = 374
        Top = 6
        Width = 20
        Height = 15
        AutoSize = True
        DragCursor = crDefault
        Visible = False
        OnMouseDown = Plant14MouseDown
        OnMouseMove = Plant14MouseMove
        OnMouseUp = Plant14MouseUp
      end
      object Plant15: TImage
        Left = 398
        Top = 6
        Width = 20
        Height = 15
        AutoSize = True
        DragCursor = crDefault
        Visible = False
        OnMouseDown = Plant15MouseDown
        OnMouseMove = Plant15MouseMove
        OnMouseUp = Plant15MouseUp
      end
      object Plant16: TImage
        Left = 422
        Top = 6
        Width = 20
        Height = 15
        AutoSize = True
        DragCursor = crDefault
        Visible = False
        OnMouseDown = Plant16MouseDown
        OnMouseMove = Plant16MouseMove
        OnMouseUp = Plant16MouseUp
      end
      object Plant17: TImage
        Left = 446
        Top = 6
        Width = 20
        Height = 15
        AutoSize = True
        DragCursor = crDefault
        Visible = False
        OnMouseDown = Plant17MouseDown
        OnMouseMove = Plant17MouseMove
        OnMouseUp = Plant17MouseUp
      end
      object Plant18: TImage
        Left = 470
        Top = 6
        Width = 20
        Height = 15
        AutoSize = True
        DragCursor = crDefault
        Visible = False
        OnMouseDown = Plant18MouseDown
        OnMouseMove = Plant18MouseMove
        OnMouseUp = Plant18MouseUp
      end
      object Plant19: TImage
        Left = 494
        Top = 6
        Width = 20
        Height = 15
        AutoSize = True
        DragCursor = crDefault
        Visible = False
        OnMouseDown = Plant19MouseDown
        OnMouseMove = Plant19MouseMove
        OnMouseUp = Plant19MouseUp
      end
      object Plant20: TImage
        Left = 518
        Top = 6
        Width = 20
        Height = 15
        AutoSize = True
        DragCursor = crDefault
        Visible = False
        OnMouseDown = Plant20MouseDown
        OnMouseMove = Plant20MouseMove
        OnMouseUp = Plant20MouseUp
      end
      object RemovePlantsButton: TSpeedButton
        Tag = 40
        Left = 469
        Top = 298
        Width = 25
        Height = 21
        Hint = 'Remove all plants'
        Glyph.Data = {
          4E010000424D4E01000000000000760000002800000015000000120000000100
          040000000000D800000000000000000000000000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333330003333333333333333333330003330033333333330033330003333
          0033333333003333300033333003333330033333300033333300333300333333
          3000333333300330033333333000333333330000333333333000333333333003
          3333333330003333333300003333333330003333333003300333333330003333
          3300333300333333300033333003333330033333300033330033333333003333
          3000333003333333333003333000333333333333333333333000333333333333
          333333333000333333333333333333333000}
        Spacing = 2
        OnClick = RemovePlantsButtonClick
      end
      object PlantThemeBox: TComboBox
        Tag = 40
        Left = 500
        Top = 298
        Width = 111
        Height = 22
        Hint = 'Choose plant theme'
        ItemHeight = 14
        MaxLength = 20
        PopupMenu = RightClickMenu
        TabOrder = 0
        Text = 'Plant Life Themes'
        OnChange = PlantThemeBoxChange
      end
      object FrontDepth: TRadioButton
        Tag = 40
        Left = 388
        Top = 330
        Width = 47
        Height = 17
        Hint = 'Choose a depth'
        Caption = 'Front'
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        PopupMenu = RightClickMenu
        TabOrder = 1
        OnClick = FrontDepthClick
        OnMouseDown = ControlMouseDown
      end
      object MiddleDepth: TRadioButton
        Tag = 40
        Left = 436
        Top = 330
        Width = 51
        Height = 17
        Hint = 'Choose a depth'
        Caption = 'Middle'
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        PopupMenu = RightClickMenu
        TabOrder = 2
        OnClick = MiddleDepthClick
        OnMouseDown = ControlMouseDown
      end
      object BackDepth: TRadioButton
        Tag = 40
        Left = 492
        Top = 330
        Width = 45
        Height = 17
        Hint = 'Choose a depth'
        Caption = 'Back'
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        PopupMenu = RightClickMenu
        TabOrder = 3
        OnClick = BackDepthClick
        OnMouseDown = ControlMouseDown
      end
      object RandomPlantsButton: TButton
        Tag = 40
        Left = 553
        Top = 344
        Width = 57
        Height = 20
        Hint = 'Generate a random plant layout'
        Caption = 'Random'
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        PopupMenu = RightClickMenu
        TabOrder = 4
        OnClick = RandomPlantsButtonClick
        OnMouseDown = ControlMouseDown
      end
      object RandomPlantsCheck: TCheckBox
        Tag = 40
        Left = 436
        Top = 347
        Width = 113
        Height = 17
        Hint = 'Random each time'
        Caption = 'Random each time'
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        PopupMenu = RightClickMenu
        TabOrder = 5
        OnMouseDown = ControlMouseDown
      end
    end
    object TTabPage
      Left = 4
      Top = 25
      Caption = 'Gallery'
      object GalImage1: TImage
        Left = 20
        Top = 58
        Width = 580
        Height = 251
        Picture.Data = {<image025.bmp>}
        OnMouseDown = GalImage1MouseDown
      end
      object ClickLabel: TLabel
        Left = 12
        Top = 312
        Width = 597
        Height = 15
        Alignment = taCenter
        Caption =
          'Left-click on an image for a full-screen preview, or right-click' +
          ' to set an image as your desktop wallpaper.'
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object ImageGalleryLabel: TImage
        Left = 20
        Top = 6
        Width = 580
        Height = 36
        AutoSize = True
        Picture.Data = {<image026.bmp>}
      end
      object HiColorLabel: TLabel
        Left = 118
        Top = 42
        Width = 391
        Height = 14
        Caption =
          'Note: Running in 16-bit color mode is recommended for viewing th' +
          'e image gallery.'
        Color = clBtnFace
        Font.Color = clMaroon
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentColor = False
        ParentFont = False
        Visible = False
      end
      object GalleryUnRegLabel: TLabel
        Left = 68
        Top = 328
        Width = 489
        Height = 15
        Alignment = taCenter
        AutoSize = False
        Caption =
          'Note: Only image 8 (the middle image), is included in this unreg' +
          'istered version.'
        Font.Color = clMaroon
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object ZoomPreviewCheck: TCheckBox
        Tag = 50
        Left = 198
        Top = 344
        Width = 255
        Height = 17
        Caption = 'Enable zoom effect for full-screen preview'
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        PopupMenu = RightClickMenu
        State = cbChecked
        TabOrder = 0
        OnMouseDown = ControlMouseDown
      end
    end
    object TTabPage
      Left = 4
      Top = 25
      Caption = 'Aquarium Guide'
      object RegLabel1: TLabel
        Left = 4
        Top = 342
        Width = 613
        Height = 17
        Alignment = taCenter
        AutoSize = False
        Caption =
          'This bonus feature is available only in the registered version o' +
          'f AquaScape.  For info on registering, click the register button' +
          '.'
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object TOCPanel: TPanel
        Left = 16
        Top = 26
        Width = 587
        Height = 307
        BevelOuter = bvLowered
        BevelWidth = 2
        Color = clWhite
        TabOrder = 1
        OnMouseMove = TOCPanelMouseMove
        object Ch1: TLabel
          Left = 157
          Top = 46
          Width = 14
          Height = 21
          Caption = '1.'
          Font.Color = clBlack
          Font.Height = -19
          Font.Name = 'Times New Roman'
          Font.Style = []
          ParentFont = False
          OnClick = Ch1Click
        end
        object Ch2: TLabel
          Left = 157
          Top = 76
          Width = 14
          Height = 21
          Caption = '2.'
          Font.Color = clBlack
          Font.Height = -19
          Font.Name = 'Times New Roman'
          Font.Style = []
          ParentFont = False
        end
        object Ch1Title: TLabel
          Left = 181
          Top = 46
          Width = 92
          Height = 21
          Cursor = 5
          Caption = 'Introduction'
          Font.Color = clNavy
          Font.Height = -19
          Font.Name = 'Times New Roman'
          Font.Style = []
          ParentFont = False
          OnClick = Ch1Click
          OnMouseMove = Ch1TitleMouseMove
        end
        object Ch2Title: TLabel
          Left = 181
          Top = 76
          Width = 247
          Height = 21
          Cursor = 5
          Caption = 'Setting up your first real fish tank'
          Font.Color = clNavy
          Font.Height = -19
          Font.Name = 'Times New Roman'
          Font.Style = []
          ParentFont = False
          OnClick = Ch2TitleClick
          OnMouseMove = Ch2TitleMouseMove
        end
        object Ch3: TLabel
          Left = 157
          Top = 106
          Width = 14
          Height = 21
          Caption = '3.'
          Font.Color = clBlack
          Font.Height = -19
          Font.Name = 'Times New Roman'
          Font.Style = []
          ParentFont = False
        end
        object Ch3Title: TLabel
          Left = 181
          Top = 106
          Width = 177
          Height = 21
          Cursor = 5
          Caption = 'Choosing your first fish'
          Font.Color = clNavy
          Font.Height = -19
          Font.Name = 'Times New Roman'
          Font.Style = []
          ParentFont = False
          OnClick = Ch3TitleClick
          OnMouseMove = Ch3TitleMouseMove
        end
        object Ch4: TLabel
          Left = 157
          Top = 136
          Width = 14
          Height = 21
          Caption = '4.'
          Font.Color = clBlack
          Font.Height = -19
          Font.Name = 'Times New Roman'
          Font.Style = []
          ParentFont = False
        end
        object Ch4Title: TLabel
          Left = 181
          Top = 136
          Width = 170
          Height = 21
          Cursor = 5
          Caption = 'Plants and landscaping'
          Font.Color = clNavy
          Font.Height = -19
          Font.Name = 'Times New Roman'
          Font.Style = []
          ParentFont = False
          OnMouseMove = Ch4TitleMouseMove
        end
        object Ch5: TLabel
          Left = 157
          Top = 166
          Width = 14
          Height = 21
          Caption = '5.'
          Font.Color = clBlack
          Font.Height = -19
          Font.Name = 'Times New Roman'
          Font.Style = []
          ParentFont = False
        end
        object Ch5Title: TLabel
          Left = 181
          Top = 166
          Width = 187
          Height = 21
          Cursor = 5
          Caption = 'Feeding and maintenance'
          Font.Color = clNavy
          Font.Height = -19
          Font.Name = 'Times New Roman'
          Font.Style = []
          ParentFont = False
          OnMouseMove = Ch5TitleMouseMove
        end
        object Ch6: TLabel
          Left = 157
          Top = 196
          Width = 14
          Height = 21
          Caption = '6.'
          Font.Color = clBlack
          Font.Height = -19
          Font.Name = 'Times New Roman'
          Font.Style = []
          ParentFont = False
        end
        object Ch6Title: TLabel
          Left = 181
          Top = 196
          Width = 215
          Height = 21
          Cursor = 5
          Caption = 'Water quality and health care'
          Font.Color = clNavy
          Font.Height = -19
          Font.Name = 'Times New Roman'
          Font.Style = []
          ParentFont = False
          OnMouseMove = Ch6TitleMouseMove
        end
        object Ch7: TLabel
          Left = 157
          Top = 226
          Width = 14
          Height = 21
          Caption = '7.'
          Font.Color = clBlack
          Font.Height = -19
          Font.Name = 'Times New Roman'
          Font.Style = []
          ParentFont = False
        end
        object Ch7Title: TLabel
          Left = 181
          Top = 226
          Width = 170
          Height = 21
          Cursor = 5
          Caption = 'Where to go from here'
          Font.Color = clNavy
          Font.Height = -19
          Font.Name = 'Times New Roman'
          Font.Style = []
          ParentFont = False
          OnMouseMove = Ch7TitleMouseMove
        end
        object TOCLabel: TLabel
          Left = 181
          Top = 16
          Width = 219
          Height = 16
          Caption = 'Aquarium Guide Table of Contents'
          Font.Color = clRed
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = [fsBold, fsUnderline]
          ParentFont = False
          OnMouseMove = TOCLabelMouseMove
        end
        object GuideDesc: TLabel
          Left = 104
          Top = 262
          Width = 381
          Height = 33
          Alignment = taCenter
          AutoSize = False
          Caption =
            'This guide provides information on helping you get started in se' +
            'tting up a real aquarium if you wish to do so.  To display a top' +
            'ic, just click its title.'
          Font.Color = clMaroon
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          WordWrap = True
          OnMouseMove = GuideDescMouseMove
        end
      end
      object Guide: TRichEdit
        Left = 0
        Top = 352
        Width = 31
        Height = 10
        HideScrollBars = False
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
        Visible = False
        OnMouseDown = GuideMouseDown
      end
      object TOCButton: TBitBtn
        Left = 241
        Top = 337
        Width = 125
        Height = 25
        Caption = 'Return to Contents'
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        Visible = False
        OnClick = TOCButtonClick
        Glyph.Data = {
          78010000424D7801000000000000760000002800000020000000100000000100
          04000000000000000000120B0000120B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
          333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
          C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
          F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
          F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
          00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
          3333333373FF7333333333333000333333333333377733333333333333333333
          33333333333333333333333333333333333333333333333333330000}
        NumGlyphs = 2
      end
    end
  end
  object ExitButton: TBitBtn
    Left = 570
    Top = 424
    Width = 60
    Height = 24
    Caption = 'Exit'
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnClick = ExitButtonClick
    Kind = bkAbort
  end
  object RunButton: TBitBtn
    Tag = 100
    Left = 502
    Top = 424
    Width = 60
    Height = 24
    Hint = 'Start Aquarium'
    Caption = 'Run'
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = RunButtonClick
    Glyph.Data = {
      DE000000424DDE0000000000000076000000280000000F0000000D0000000100
      0400000000006800000000000000000000000000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00311111119333
      3330333399919993333019331999119933309193919919199330391999199191
      993039199919919999903919991991999990391999199199B930919391991991
      9930193319991919933033339991919933303339999999933330311111119333
      3330}
  end
  object AboutButton: TBitBtn
    Left = 276
    Top = 424
    Width = 67
    Height = 24
    Caption = 'About'
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = AboutButtonClick
    Glyph.Data = {
      78010000424D7801000000000000760000002800000020000000100000000100
      04000000000000000000120B0000120B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      333333333333333333333333333333333333333333FFFFF3333333333CCCCC33
      33333FFFF77777FFFFFFCCCCCC808CCCCCC377777737F777777F008888070888
      8003773FFF7773FFF77F0F0770F7F0770F037F777737F777737F70FFFFF7FFFF
      F07373F3FFF7F3FFF37F70F000F7F000F07337F77737F777373330FFFFF7FFFF
      F03337FF3FF7F3FF37F3370F00F7F00F0733373F7737F77337F3370FFFF7FFFF
      0733337F33373F337333330FFF030FFF03333373FF7373FF7333333000333000
      3333333777333777333333333333333333333333333333333333333333333333
      33333333333333333333333333333333333333333333333333330000}
    NumGlyphs = 2
  end
  object RegisterButton: TBitBtn
    Left = 351
    Top = 424
    Width = 75
    Height = 24
    Caption = 'Register'
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ModalResult = 3
    ParentFont = False
    TabOrder = 4
    OnClick = RegisterButtonClick
    Glyph.Data = {
      78010000424D7801000000000000760000002800000020000000100000000100
      04000000000000000000120B0000120B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
      5555555555FFFFF555555555544C4C5555555555F777775FF5555554C444C444
      5555555775FF55775F55554C4334444445555575577F55557FF554C4C334C4C4
      335557F5577FF55577F554CCC3334444335557555777F555775FCCCCC333CCC4
      C4457F55F777F555557F4CC33333CCC444C57F577777F5F5557FC4333333C3C4
      CCC57F777777F7FF557F4CC33333333C4C457F577777777F557FCCC33CC4333C
      C4C575F7755F777FF5755CCCCC3333334C5557F5FF777777F7F554C333333333
      CC55575777777777F755553333CC3C33C555557777557577755555533CC4C4CC
      5555555775FFFF77555555555C4CCC55555555555777775555550000}
    NumGlyphs = 2
  end
  object HelpButton: TBitBtn
    Left = 434
    Top = 424
    Width = 60
    Height = 24
    Caption = '&Help'
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    OnClick = HelpButtonClick
    Glyph.Data = {
      78010000424D7801000000000000760000002800000020000000100000000100
      04000000000000000000120B0000120B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333CCCCC33
      33333FFFF77777FFFFFFCCCCCC808CCCCCC3777777F7F777777F008888070888
      8003777777777777777F0F0770F7F0770F0373F33337F333337370FFFFF7FFFF
      F07337F33337F33337F370FFFB99FBFFF07337F33377F33337F330FFBF99BFBF
      F033373F337733333733370BFBF7FBFB0733337F333FF3337F33370FBF98BFBF
      0733337F3377FF337F333B0BFB990BFB03333373FF777FFF73333FB000B99000
      B33333377737777733333BFBFBFB99FBF33333333FF377F333333FBF99BF99BF
      B333333377F377F3333333FB99FB99FB3333333377FF77333333333FB9999FB3
      333333333777733333333333FBFBFB33333333333333333333330000}
    NumGlyphs = 2
  end
  object Timer: TTimer
    Interval = 100
    OnTimer = TimerTimer
    Left = 594
    Top = 10
  end
  object RightClickMenu: TPopupMenu
    Left = 556
    Top = 4
    object Whatthis: TMenuItem
      Caption = 'What'#39's this?'
      Default = True
      ShortCut = 0
      OnClick = WhatthisClick
    end
  end
end